home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Programming Tools / Sound / SoundDemo.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-08-12  |  7.1 KB  |  284 lines  |  [TEXT/ttxt]
  1. /* 
  2. *    Sound Demonstration Program
  3. *    written for the Boston MacWorld Expo
  4. *    using the Macintosh Programmer's Workshop
  5. *
  6. *    © 1986 Fred A. Huxham
  7. *
  8. *--------------------------------------
  9. *    This is the Main code
  10. *--------------------------------------
  11. *
  12. */
  13.  
  14.  
  15. /* Macintosh Include Files */
  16. #include <types.h>
  17. #include <resources.h>
  18. #include <quickdraw.h>
  19. #include <fonts.h>
  20. #include <events.h>
  21. #include <windows.h>
  22. #include <controls.h>
  23. #include <dialogs.h>
  24. #include <segload.h>
  25. #include <files.h>
  26. #include <retrace.h>
  27.  
  28. /* Constant Values */
  29. #define    TRUE        1
  30. #define    FALSE        0
  31. #define    NIL            0
  32. #define MiddleC        25
  33. #define BuffSize    63
  34.  
  35. /*------------------------------------------------------------------*/
  36. /*    Our own definitions of the SquareWave Sound Data Structures        */
  37. /*------------------------------------------------------------------*/
  38. #define swMode (-1)
  39.  
  40. typedef struct Tone {
  41.     short    count;
  42.     short    amplitude;
  43.     short    duration;
  44. } Tone;
  45.  
  46. typedef Tone Tones[BuffSize];
  47.  
  48. typedef struct SWSynthRec {
  49.     short    mode;
  50.     Tones    triplets;
  51. } SWSynthRec, *SWSynthPtr;
  52.  
  53. /* Global Variables */
  54. short        Sound, theNote, **theNotes;
  55. VBLTask        SoundTask;
  56. IOParam        *SndParamPtr;
  57. SWSynthPtr    SqWvPtr;
  58.  
  59. /* External Functions */
  60. void    VBLGlue();
  61.  
  62. /*==================================================================*/
  63. /*    Our restart procedure for InitDialogs                            */
  64. /*==================================================================*/
  65. void    reStartProc()
  66. {
  67.    ExitToShell();
  68. }
  69.  
  70.  
  71. /*==================================================================*/
  72. /*    Our Vertical Blanking Interrupt routine                            */
  73. /*==================================================================*/
  74. void    mySoundVBL()
  75. {
  76.     SoundTask.vblCount = 1;        /* Reset our task counter */
  77.  
  78.     if(Sound) {
  79.         if(SndParamPtr->ioActCount >= 370) SndParamPtr->ioActCount = 0;
  80.     }
  81. }
  82.  
  83.  
  84. /*==================================================================*/
  85. /*    This routine sets up the Square Wave Synthesizer buffer            */
  86. /*==================================================================*/
  87. void    SetUpSqWv()
  88. {
  89.     short    i;
  90.  
  91.     (*SqWvPtr).mode = swMode;
  92.     for(i = 0; i < BuffSize - 1; i++) {
  93.         (*SqWvPtr).triplets[i].count = 2994;
  94.         (*SqWvPtr).triplets[i].amplitude = 200;
  95.         (*SqWvPtr).triplets[i].duration = 1;
  96.     }
  97.     (*SqWvPtr).triplets[BuffSize - 1].count = 0;
  98.     (*SqWvPtr).triplets[BuffSize - 1].amplitude = 0;
  99.     (*SqWvPtr).triplets[BuffSize - 1].duration = 0;
  100.  
  101.     SndParamPtr->ioBuffer = (Ptr)SqWvPtr;
  102.     SndParamPtr->ioReqCount = (sizeof(SWSynthRec));
  103. }
  104.  
  105.  
  106. /*==================================================================*/
  107. /*    This routine starts the sound                                    */
  108. /*==================================================================*/
  109. void    StartOurSound()
  110. {
  111.     short    result;
  112.  
  113.     result = PBWrite(SndParamPtr, TRUE);
  114.     if(result) OSError("PBWrite", result, "");
  115.     Sound = TRUE;
  116. }
  117.  
  118.  
  119. /*==================================================================*/
  120. /*    This routine stops the sound                                    */
  121. /*==================================================================*/
  122. void    StopOurSound()
  123. {
  124.     short    result;
  125.  
  126.     result = PBKillIO(SndParamPtr, TRUE);
  127.     if(result) OSError("PBKillIO", result, "");
  128.     Sound = FALSE;
  129. }
  130.  
  131.  
  132. /*==================================================================*/
  133. /*    This routine changes the note to play                            */
  134. /*==================================================================*/
  135. ChangeNote(whichNote)
  136.     short    whichNote;
  137. {
  138.     short    newCount, i;
  139.     
  140.     newCount = (*theNotes)[whichNote - 1];
  141.  
  142.     (*SqWvPtr).mode = swMode;
  143.     for(i = 0; i < BuffSize - 1; i++) {
  144.         (*SqWvPtr).triplets[i].count = newCount;
  145.         (*SqWvPtr).triplets[i].amplitude = 200;
  146.         (*SqWvPtr).triplets[i].duration = 1;
  147.     }
  148.     (*SqWvPtr).triplets[BuffSize - 1].count = 0;
  149.     (*SqWvPtr).triplets[BuffSize - 1].amplitude = 0;
  150.     (*SqWvPtr).triplets[BuffSize - 1].duration = 0;
  151. }
  152.  
  153.  
  154. /*==================================================================*/
  155. /*    DoModeless takes a dialog item and a modeless dialog pointer    */
  156. /*    as arguments, and responds to the user's actions appropriately    */
  157. /*==================================================================*/
  158. void    DoModeless(whichItem,whichDialog)
  159. short        whichItem;
  160. DialogPtr    whichDialog;
  161. {
  162.     short            itemType;
  163.     ControlHandle    item;
  164.     Rect            box;
  165.  
  166.     if(whichItem >= 1 && whichItem <= 60) {
  167.         GetDItem(whichDialog, theNote, &itemType, &item, &box);
  168.         SetCtlValue(item, FALSE);
  169.         GetDItem(whichDialog, whichItem, &itemType, &item, &box);
  170.         SetCtlValue(item, TRUE);
  171.         theNote = whichItem;
  172.         ChangeNote(whichItem);
  173.     }
  174. }
  175.  
  176.  
  177. /*==================================================================*/
  178. /*    DoWindowStuff takes care of mouse-downs in the drag and goAway    */
  179. /*    regions of the modeless dialog                                    */
  180. /*==================================================================*/
  181. void    DoWindowStuff(theEvent,whichWindow,windowcode)
  182. EventRecord    *theEvent;
  183. WindowPtr     whichWindow;
  184. short        windowcode;
  185. {
  186.     short    result;
  187.     Rect    screenRect;
  188.     
  189.     SetRect(&screenRect,10,30,502,332);
  190.     switch(windowcode) {
  191.         case inDrag:
  192.             DragWindow(whichWindow,&theEvent->where,&screenRect);
  193.             break;
  194.         case inGoAway:
  195.             if(TrackGoAway(whichWindow,&theEvent->where)) {
  196.                 result = VRemove(&SoundTask);
  197.                 if(result) OSError("VRemove", result, "");
  198.                 StopOurSound();
  199.                 ExitToShell();
  200.             }
  201.             break;
  202.     }
  203. }
  204.  
  205.  
  206. /*==================================================================*/
  207. /*    Here's our main event loop                                        */
  208. /*==================================================================*/
  209. main()
  210. {
  211.     extern struct qd qd;
  212.  
  213.     EventRecord        theEvent;
  214.     DialogPtr        modeless,whichDialog;
  215.     short            whichItem,windowcode, itemType, i, result;
  216.     WindowPtr        whichWindow;
  217.     Rect            box;
  218.     ControlHandle    item;
  219.  
  220.     /* The Standard Initializations */
  221.     InitGraf(&qd.thePort);
  222.     InitFonts();
  223.     FlushEvents(everyEvent, 0);
  224.     InitWindows();
  225.     InitDialogs(reStartProc);
  226.     InitCursor();
  227.  
  228.     /* Initialize our global variables */
  229.     Sound = FALSE;
  230.     theNote = MiddleC;
  231.  
  232.     /* Allocate our Pointers */
  233.     SqWvPtr = (SWSynthPtr)NewPtr(sizeof(SWSynthRec));
  234.     SndParamPtr = (IOParam *)NewPtr(sizeof(IOParam));
  235.     
  236.     /* Load the Notes resource */
  237.     theNotes = (short **)GetResource('Note', 8888);
  238.     if(ResError()) OSError("GetResource", ResError(), "in main()");
  239.     DetachResource(theNotes);
  240.     if(ResError()) OSError("DetachResource", ResError(), "in main()");
  241.  
  242.  
  243.     /* Set up the fields of the VBLTask */
  244.     SoundTask.qType = 1;                    /* 1 = vType */
  245.     SoundTask.vblAddr = VBLGlue;
  246.     SoundTask.vblCount = 1;
  247.     SoundTask.vblPhase = 0;
  248.  
  249.     /* Set up the Sound Parameter block */
  250.     SndParamPtr->ioCompletion = NIL;
  251.     SndParamPtr->ioRefNum = (-4);
  252.  
  253.     /* Fill in our SquareWave Pointer */
  254.     SetUpSqWv();
  255.  
  256.     /* put up the modeless dialog with middle C checked */
  257.     modeless = GetNewDialog(1000,NIL,(WindowPtr)-1);
  258.     GetDItem(modeless, theNote, &itemType, &item, &box);
  259.     SetCtlValue(item, TRUE);
  260.     ShowWindow(modeless);
  261.  
  262.     /* Install the VBLTask and then start the sound */
  263.     result = VInstall(&SoundTask);
  264.     if(result) OSError("VInstall", result, "");
  265.     StartOurSound();
  266.  
  267.     /* And here's the loop */
  268.     while (TRUE)   {
  269.         if(GetNextEvent(everyEvent,&theEvent)) {
  270.             if(IsDialogEvent(&theEvent)) {
  271.                 if(DialogSelect(&theEvent,&whichDialog,&whichItem)) {
  272.                     DoModeless(whichItem,whichDialog);
  273.                 }
  274.             }
  275.             switch (theEvent.what) {
  276.                 case mouseDown:
  277.                     windowcode = FindWindow(&theEvent.where,&whichWindow);
  278.                     DoWindowStuff(&theEvent,whichWindow,windowcode);
  279.                     break;
  280.             }
  281.         }
  282.     }
  283. }
  284.